home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 356 / defs / realio.def < prev    next >
Text File  |  1992-03-11  |  1KB  |  41 lines
  1.  
  2. DEFINITION MODULE RealIO;
  3.  
  4.  
  5. (*
  6. *    Copyright (c) 1985, 1986 by
  7. *    Djavaheri Bros., Foster City, California.
  8. *    All Rights Reserved.
  9. *
  10. *    This software is furnished under a license and may be used and copied
  11. *    only  in accordance with  the  terms  of  such  license and  with the
  12. *    inclusion of the above copyright notice.  This software or  any other
  13. *    copies thereof may not be provided or otherwise made available to any
  14. *    other  person.   No title to and ownership of the  software is  herby
  15. *    transferred.
  16. *
  17. *    The information in this software is  subject to change without notice
  18. *    and  should  not be construed as a commitment by Djavaheri Bros.   No
  19. *    warranty is implied or expressed.
  20. *
  21. *   SCCID  = "1.1    1/26/86"; 
  22. *)
  23. FROM Files IMPORT File, FileState;
  24. FROM SYSTEM IMPORT WORD;
  25.  
  26. EXPORT QUALIFIED
  27.     ReadReal,
  28.         WriteReal;
  29.  
  30. PROCEDURE ReadReal   (     file   : File ;
  31.                       VAR real   : REAL;
  32.                VAR success : BOOLEAN;
  33.                        VAR state  : FileState);
  34.  
  35. PROCEDURE WriteReal (     file  : File;
  36.                           real  : REAL;
  37.                   width : CARDINAL;
  38.                decPlaces: INTEGER;
  39.                  VAR  state : FileState );
  40. END RealIO.
  41.